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MODULE FORSDELETE ( : DELETE statement processor 
*1-002' ! Edit: $BL1002 


IDENT = 
BEGIN 


J 
Lee RRR RARER ARERR ARR REREAAEA AA ERA TAA A AEA AA AEA ARERREES 
J 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
' DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
DANCE WITH THE TERMS OF SUCH LICENSE AND WITH T 


* 

® 

® 

*® 

® 

*® 

® 

i S SOFTWARE OR ANY OTH : 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. , 
; ® 
i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
® 

® 

* 

& 

® 

te 
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§ 

2 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

§ 8s | edapehbheebneuiiasauiambimesabeashiinncdaaenbarecmancenaineianiiiinn 
2 02 ! 

3 03 

3 03 lee 

: 3 FACILITY: FORTRAN Language Support Library 

3 05 ABSTRACT: 

3 03 : Contains routines to implement FORTRAN DELETE for relative 

; Oe and indexed organization files. 

i Ooe : ENVIRONMENT: User mode, AST reentrant 

4 004 ; AUTHOR: Steven B. Lionel, CREATION DATE: 14-May-1979 

4 004 i EDIT HISTORY: 

4 0044 ! 

4 0045 1 | 1-001 - Original. SBL WecMay-1979 

0046 1-002 - Move ACTUALCOUNT declaration inside routine. SBL 145-June-1982 
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FORSDELETE 18-Sep-1984 00: 17:08 erat Bliss-32 V4.0-74 
1-002 14-Sep-1984 12:31:48 FORRTL.SRCJFORDELETE.B32;1 
; 69 0048 1! 
es 0049 1 ! SWITCHES: 
; a 0050 1! , 
3 28 0051 +1 
$ 22 B226 ’ SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; 3 0054 1! 
:; 2 0055 1 ! LINKAGES: 
Poe 0056 1! 
; 0057 1 
FF Oeae : REQUIRE ‘RTLIN:OTSLNK'; ! Define all Linkages 
= | 0488 1! 
3 0489 1 ! TABLE OF CONTENTS: 
; 0490 1! 
3 0491 1 
H 049 1 FORWARD ROUTINE 
$ 04935 1 FORSDELETE : CALL_CCB, ! Sequential access delete entry 
: pegs FORSDELETE_D : CACL_CCB; ! Direct access delete entry 
; 0496 1! 
; 0497 1 ! INCLUDE FILES: 
; 0498 1! 
5 0499 1 
3 0500 1 LIBRARY ‘RTLSTARLE'; ' STARLET Library for macros and symbols 
3 0501 1 REQUIRE ‘RTLML:FORERR’; ! FORTRAN error numbers | 
; 0569 1 REQUIRE 'RTLML:OTSLUB' ! Logical Unit Block Definitions 
3 0709 1 REQUIRE 'RTLML:OTSISB’ ! Inter-statement Block Definitions 
: 0877 1 REQUIRE ‘RTLIN:RTLPSECT'; i P=SECT declaration macros 
; 9464 ; REQUIRE "RTLML:FORPAR'; ! Inter-module parameters 
3 0996 1! 
3 0997 1 ! MACROS: 
; 0998 1! 
; 0999 1 
; 1000 1! 
: 1001 1 ! EQUATED SYMBOLS: 
3 1002 1! 
3 1003 1 
: 1004 1! 
3 1005 1 ! PSECT DEFINITIONS: 
3 1006 1! 
3 1007 1 
3 1908 1 DECLARE_PSECTS (FOR); 
; 1009 1 
;: 1010 1! 
: 1011 1 ! OWN STORAGE: 
; 1g s. 
; 1015 1 
; 1014 1! 
3 1015 1 ! EXTERNAL REFERENCES: 
3 1016 1! 
: 1017 1 
: 1018 1 EXTERNAL ROUTINE 
: 1019 1 FORSSIOSTAT_HND, ! IOSTAT error handler 
: 1930 1 FORSS$SIGNAL_STO : NOVALUE, : 319ne1 stop routine 
: 1021 1 FOR$$SIG_NO_LUB : NOVALUE, ! Signal without LUB 


1B-Se0-1944 99:47:28 Aaa Oke Sronpe rete oS251 tox ab 
NOVALUE, | Push a CCB | 
OVALUE; ' Pop a CCB 
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GLOBAL ROUTINE FORSDELETE ( 
UNIT umber on which to delete 
RR= or IOSTAT= present 


ms 


ERR_EQL 
) :"CALL_CCB = 


+e 
FUNCTIONAL DESCRIPTION: 


FORSDELETE deletes the current record of the indexed or relative organization file 
open on unit UNIT. 


CALLING SEQUENCE: 
jiostat.wl.v = FORSDELETE (unit.rl.v C, err_eql.rlu.v]) 
FORMAL PARAMETERS: 


unit - The unit number on which to delete the record. 
There must be a ‘‘current record’’ on this unit. 
err_eql - If absent or zero, all errors are signalled. 


- If 1, errors return an IOSTAT error code value. 

IMPLICIT INPUTS: 

CCB 
! IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

An IOSTAT value. 
SIDE EFFECTS: 

Se A UR REAFIC - Write to read-only file 


FOR$_NO_CURREC = No current record 
FORS$_DECERR - Delete error 


96°60 te te te tr ty ete eT? D> $999 99 SR ttt tat tt of 
PAEEQ_EMQD DAA Ass & EE EE AWA Wrororononer 


BEGIN 


GLOBAL REGISTER 
CCB = 11: REF BLOCK C, BYTE); 


LOCAL 
L_UNWIND_ACTION : VOLATILE, 
L-ERR_EQC_PRES : VOLATILE, 
STATUS; 


BUILTIN 
ACTUALCOUNT ; 


ENABLE 
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FORSSIOSTAT_HND (L_UNWIND_ACTION, L_ERR_EQL_PRES); 
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14 
} Determine if ERR_EQL is present. 


IF ACTUALCOUNT () GTR 1 


eLgEtnERRAEGL-PRES = .ERR_EQL 
L_ERR_EQL_PRES = 0; 


1+ 
Unwind action is NO-OP (no LUB yet) 


L_UNWIND_ACTION= FORSK_UNWINDNOP; 
14 


i Get a LUB for this unit. On return, CCB points to the 
current control block. 


pejejejelelaleleleleleleleleleloleololo) 


DODO DOOCOCOCOC OO DOOO0O0 OO OC@B@WMW@MMm@mooc 


FORSSCB_PUSH (.UNIT, LUBSK_LUN_MIN); 
+ 
Unwind action is now to POP the CCB. 
L_LUNWIND_ACTION = FORSK_UNWINDPOP; 
'¢ 
! If file is not indexed or relative organization, or is direct access, 
signal error FORS$_DELERR. 
IF NOT .CCB CLUBSV_NOTSEQORG] OR .CCB CLUBS$V_DIRECTI 
FORSSSIGNAL_STO (FORSK_DELERR); 


SOOOSC]SO 00000 00000090000 09 09 09 09 09 SI INI INI NNO 


‘+ 
If file is read-only, signal error FORS_WRIREAFIL. 


IF .CCB CLUB$V_READ_ONLYJ 
FORSSSIGNAL_STC (FORSK_WRIREAFIL); 
'¢ 
Try to delete the current record. If we get an error, signal it. 


IF NOT SDELETE (RAB=.C°B) 
THEN 
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BEGIN 
WHILE .CCB CRABSL_STS) EQL RMS$_RSA DO 
BEGIN 


oe 
1-00 


WN OOODNOUNSWN"OVOONOVEW 
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14-Sep-1984 
1138 4 SWAIT (RAB=.CCB); 
1139 4 SDELETE (RAB=.CCB); 
1141 : NOT .CCB CRABSL_STS) 
1148 HEN 
114 FORSSSIGNAL_STO ( 
1193 SELECTONEU .CCB CRABSL_STS) OF 
1146 Frnss CUR, RMS$_RNL] : FORSK_NO_CURREC; 
1147 OTHERWISE] : FORSK_DELERR; 
1148 TES); 
1149 END; 
1150 
1151 '4 
1136 } Return 1/0 system to previous state 
1154 
1129 FORS$SCB_POP (); 
1429 RETURN 0; ' Success IOSTAT value 
1158 1 END; 
TITLE 
. IDENT 
.EXTRN 
~EXTRN 
.EXTR 
~EXTRN 
~EXTRN 
«PSECT 
081C 00000 ENTRY 
54 00000000G 00 43 00002 MOVAB 
53 00000000G 00 9€ 00009 MOVAB 
5E 04 C2 00010 SUBL2 
7E D4 00013 CLRL 
04 AE 04 00015 CLRL 
6D 0086 CF ODE 00018 MOVAL 
01 6C 91 00010 CMPB 
06 1B 90020 BLEQU 
6E 08 AS b0 OO Ose MOVL 
02 11 026 BRB 
6E 04 00028 1$: CLRL 
04 AE 01 DO O002A 2$: MOVL 
50 D4 O002E CLRL 
52 04 AC 00 000350 MOVL 
00000000G 00 16 One JSB 
04 at D4 98 A CLAL 
05 Al AB E1 00030 BBC 
05 FC AB 4 €1 Oe BBC 
7 DD 00047 3$: PUSHL 
63 1 FB O49 CALLS 
05 FC AB 2 €1 0004C 4$: BBC 
F DD 00051 PUSHL 
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SYSS$DELETE, 
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196 bytes, Routine Base: 


3; Routine Size: 
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meh 
1-00 
45 1159 1 
‘3 1160 1 
4 1161 1 
48 1162 1 
49 1165 1 
29 1164 1 
53 166] 
38 1187 1 
54 1168 1 
255 1169 1 
28 1170 1 
5 1171 «1 
58 1158 1 
259 11735 1 
260 1174 1 
261 1175 «(1 
$06 1176 1 
26 1177 «1 
264 1178 #1 
265 1179 «1 
266 1180 1 
267 1181 1 
268 1182 1 
269 1183 1 
270 1184 1 
271 1185 1 
272 1186 1 
273 1187 1 
274 1188 1 
275 1189 1 
276 1190 1 
277 1191 1 
278 1192 1 
279 1193 1 
280 1194 1 
281 1195 1 
oes 1196 1 
28 1197 1 
284 1198 1 
285 1199 1 
86 1200 1 
87 1201 1 
88 1306 1 
89 1205 1 
290 1204 1 
291 1205 1 
$38 1206 1 
$3 160% 1 
Oe 1208 
295 1209 
96 1210 
97 1211 
98 1 \¢ 
99 121 
00 1214 
501 1215 
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UNIT 
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! Unit to delete on 
Record number to delete 
1 if ERR= or IOSTAT= specified 


REC_NO, 
ERR-EQL 
) :“CALL_CCB = 


* 
FUNCTIONAL DESCRIPTION: 


Deletes the specified record on a relative organization file 
opened for direct access. 


CALLING SEQUENCE: 
jostat.wl.v = FORSDELETE_D (unit.rl.v, rec_no.rl.v C, err_eql.r;u.vJ) 
FORMAL PARAMETERS: 


unit - Unit number to delete on 
rec_no - Record number to delete 
err_eql - If present and 1, return IOSTAT 


values for errors. 
IMPLICIT INPUTS: 


CCB 
LUB$L_LOG_RECNO 


LUBSV_F INB_LAST ! On if FIND was Last operation 
IMPLICIT OUTPUTS: 
LUBSV_F IND_LAST ! Cleared 


ROUTINE VALUE: 
An IOSTAT value. 
SIDE EFFECTS: 


SIGNAL STOPs: : : , 
Open or define file required for direct or keyed access 
Write to read-only file 
Record number out of range 
Attempt to access non-existent record 
Specified record locked 
Delete error 
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BEGIN 
GLOBAL REGISTER 
CCB = 11: REF BLOCK C, BYTE); 


CAL 
L_UNWIND_ACTION : VOLATILE, 
L-ERR_EQC_PRES : VOLATILE; 


F 16 
6-Sep-19 
4-Sep-19 


0 

08 BUILTIN 

ee ACTUAL COUNT; 
06 ENABLE 


FORSSIOSTAT_HND (L_UNWIND_ACTION, L_ERR_EQL_PRES); 


+ 
Determine if ERR_EQL is present. 


if ACTUALCOUNT () GTR 2 
LLERR_EQL_PRES = .ERR_EQL 
ELSE 
LLERR_EQL_PRES = 0; 


'+ 
Unwind action is NO-OP (no LUB yet) 


L_UNWIND_ACTiON= FORSK_UNWINDNOP; 

Seta, ue for thge unit On return, CCB points to the 
FORSSCB_PUSH (.UNIT, LUBSK_LUN_MIN); 

Unwind action is now to POP the CCB. 

L_UNWIND_ACTION = FORSK_UNWINDPOP; 


14 
If file is not relative organization, signal error FORS_DELERR. 
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IF .CCB CLUBS$B_ORGAN) NEQU LUBSK_ORG_RELAT 
FORSSSIGNAL_STO (FORSK_DELERR); 


14 
} If file is read-only, signal error FORS_WRIREAFIL. 


Cee essy 
oP a et et 
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IF .CCB CLUBSV_READ_ONLYJ 
FORSSSIGNAL_STO (FORSK_WRIREAFIL); 


'¢ 
: If file is not direct access, signal error FORS_OPEDEFREQ. 


ee ee ee ee ee ee ee me em em em ee em ee ee DD De ed ed ed ed ed nd od dd od ad 


PROPOPOPIPOPOPIPONIPONYINDPPIPOPPINPOPNPYAIPUDININIPINININININPINININININIPINIAIDYR PPIPININPINININININITINININININ 


WWAAAANA 


PAA AAAIVI 


ONO UE wh 


IF NOT .CCB CLUBS$V_DIRECTI 
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: a 1273 THEN 

3 rs } fe FORSSSIGNAL_STO (FORSK_OPEDEFREQ); 

; + 1276 + 

3 o7 } 78 If the record number passed is illegal, signal FORS$_RECNUMOUT. 

: 365 127 

3 $8 } rs - gREC NO LEQ 0 OR (.CCB CLUBSL_REC_MAX] NEQ 0 AND .REC_NO GTRU .CCB CLUBSL_REC_MAX]) 
§ 68 1 6 ; FORSSSIGNAL_STO (FORSK_RECNUMOUT) ; 

; 569 128 

; 370 1284 + 

3 71 1285 ! See if the requested record to be deleted may already be locked. 
3 $6 1286 ' If it is, we want to avoid doing a SFIND which would unlock the 
- Be 1287 § ' record. To check, we compare REC_NO against (LUBSL_LOG_RECNO - 1) 
: 374 1288 i (or LUBSL_LOG_RECNO if LUBSV_FIND-LAST is set). If they are equal, 
s S75 1289 2 ' the last operation we did may have locked this record. If it didn't, 
; 376 1290 § ! then we don't have a record locked. Trying to delete the record 
: 377 1291 ' will show if it's locked or not. If not, we do a SFIND anyway. 
; ire 1636 2 = 

; 379 1293 2 

; 380 1294 ¢ IF .REC_NO EQL . 

; 381 1295 ( IF .CCB CLUBSV_FIND_LASTJ 

; 382 1296 3 N 

; «383 1297 3 -CCB CLUBSL_LOG_RECNOJ 

> 384 1298 3 

; 385 it .4 3 -CCB CLUB$L_LOG_RECNO] - 1) 

: 386 1300 2 THEN 

s Ser 1301 3 BEGIN 

; 3e8 1302 3 : 

: 389 1303 3 CCB CLUBSV_FIND_LAST) = 0; ! Turn off bit 

; 390 13046 3 

; 391 1305 3 + 

3 Te 1306 3 ' We may have it locked. Try to delete it. 

; ws 1307 3 te 

> 394 1308 3 

; 5 1309 4 IF NOT S$SDELETE (RAB=.CCB) 

; 396 1310 3 THEN 

; 397 1311 3 WHILE .CCB CRABSL_STS] EQL RMS$_RSA DO 

; 398 1316 4 BEGIN 

; 399 131 4 SWAIT (RAB=.CCB); 

: 400 1314 4 SDELETE (RAB=.CCB); 

3; 401 1315 3 END; 

; 40 1316 

; 40 131 '+ 

: 404 1318 ' If we succeeded, return. 

3; 405 1319 '- 

: 406 1320 ; 

; 407 1321 IF .CCB CRABSL_STSJ 

; 408 1858 3 THEN 

3; 409 1323 4 BEGIN : 

; 410 1324 4 FORSS$CB_POP (); ' Return 1/0 to previous state 

: 611 1362 4 RETURN 0; ' Success IOSTAT value 

: aie 13 $ 3 3 

3; 41 132 END; 

3 616 1328 

; 415 1329 '¢ 
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1-002 14- 3eP- bbe 09:37:88 FORRTL.SRCIJFO ORDEL £fe 63251 = (4) 

$ $1$ ! 9 We don't have it locked. Do a SFIND then a SDELETE. 

3 rt 1 ¢ 

$ 138 ! i (CB CLUBSV_FIND_LASTJ = 0; 

3 631 1335 cre CLUBSL_LOG_RECNO] = .REC_NO; 

3; 4 ¢ 1336 IF NOT SFIND (RAB=.CCB) 

. 6 1337 THEN 

: 426 1338 BEGIN 

; 425 1339 WHILE .CCBCRABSL_STS] EQL RMS$_RSA DO 

; 426 1349 4 BEGIN 

s 427 1341 4 S$WAIT (RAB=.CCB); 

; 428 1348 5 SFIND (RAB=, ¢¢B) 

: $93 1345 3 END; 

; 450 1344 : IF NOT .CCB CRABSL_STS) THEN PORESST ORAL. STO ( 

3 $3) 1342 SELECTONEU .CCB C CREBSi STS] 0 

3 6 ; 1346 3 SET 

s 63 1347 ; CRMS$_RLK) H meh te SPERECLOC; 

> 434 1348 tonne RNF EOF] : FORSK ATTACCNON; 

> 435 1349 3 OTHERWISE)” “ PoRSK “DELERR; 

>; 436 1350 3 TES); 

3: 437 1351 2 END; 

; 438 1326 2 

; 439 1353 2 + : 

: 440 1354 § ! Try to delete the current record. If we get an error, signal it. 

> 441 1355 t= 

3 44 1356 ¢ 

: 44 1357 IF NOT S$DELETE (RAB=.CCB) 

s 444 1358 ¢ THEN 

; 445 1359 BEGIN 

> 446 1360 3 WHILE .CCB CRABSL_STS] EQL RMS$_RSA DO 

> 447 1361 4 BEGIN 

> 448 1362 4 $WAIT (RAB=.CCB); 

; 449 1363 4 SDELETE (RAB=.CCB); 

; 450 1364 3 END; 

3 451 1365 3 IF NOT .CCB CRABSL_STSJ 

: 452 1366 3 HEN 

>; 453 1367 3 FORSSSIGNAL_STO (FORSK_DELERR); 

: 454 1368 2 D; 

s 655 1369 2 

3 456 1370 2 '+ 

s 4657 1371 2 ' Return 1/0 system to previous state 

; 458 1372 t= 

; 459 1373 

; 460 1374 FORSS$CB_POP (); 

: 461 1375 2 

: 462 1376 2 RETURN 0; ' Success IOSTAT value 

: 463 1377 (1 END; 
SYSSF IND 
FORSDELETE_D, Save R2,R3,R4,R5,R6,R11 : 1159 
SY VSSF Ie R6- 3 
SYSSWAIT, R5 : 


SySSDELETE. R4 ; 
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| 1-002 1o28ep= 1986 19:51:68 — ERORRIL SRESFORDELETE. 892; 1 al 
53 000000006 00 96 90017 MOVA FORSSSIGNAL, STO, R3 : 
04 Co OOO1E SUBL2 #4 : 
E 04 000 1 CLRL. — L_ERR PRES + 1208 
04 AE D4 00023 CLRL L UN NUTHOL KCTION : 
6D 0117 CF DE 00026 MOVAL 23%, (FP : 
02 6c 91 000 8 CMPB. ss CAPS, #2 : 1227 
06 1B 0002E BLEQU 1$ : 
6E 0c AC 00 00030 MOVL ERR. EQL, L_ERR_EQL_PRES : 1229 
02 11 00034 BRB $ : 
6E D4 00036 1$: CLRL L_ERR_EQL_PRES + 1231 
04 AE 01 DO 00038 2$: MOVL 46 L ~UNGIND ACTION 3 1237 
50 D4 9005¢ CLRL RO + 1246 
52 04 AC 00 0003E MOVL : 
000000006 06 16 00048 JSB UN Ech? PUSH : 
04 AE D4 0004 CLRL L LN LNG ye : 1250 
02 C4 AB 91 00048 CMPB = = BO(CCB)> #2 + 1256 
05 13 0004F EQLSss38 F 
37 DD 00051 PUSHL #55 : 1258 
63 01 FB 00053 CALLS #1, FORSSSIGNAL _STO ; 
05 FC AB 02 £1 00056 3s: BBC #2. -4(CCB), 4$ + 1264 
2F DD 00058 PUSHL #47 : 1266 
63 01 FB 0005D CALLS #1, FORSS$SIGNAL_STO ; 
05 FC AB 04 £0 00060 4$: BBS #4. -4(CCB), 5$7 : 1272 
1A DD 00065 PUSHL We + 1276 
63 01 FB 00067 CALLS #1, FORS$SIGNAL_STO : 
52 08 AC DO 0006A SS: MOVL REC_NO, R2 + 1280 
OB 15 0006E BLEQ ; 
E4 AB 05 00070 TSTL  =28(CCB) : 
0B 13 00073 BEQL ; 
E46 AB 52 D1 00075 CMPL Re. -28(CCB) : 
05 1B 00079 BLEQU ; 
19 DD 0007B 6$ PUSHL W25 > 1282 
63 01 FB 0007D CALLS  FORSSSIGNAL STO : 
06 AO AB 03 £1 00080 7$ BBC > 1295 
50 EO AB DO 00085 MOVL rs, : 1297 
05 11 00089 BRB 98 : 
50 EO AB 01 C3 0008B 8$: SUBL3 -32(CCB), RO : 1299 
50 52 D1 00090 9$: CMPL 4 RO > 1295 
26 12 00093 BNEQ 126 : 
AO AB 08 8A 00095 BICB2 #8, -96(CCB) : 1303 
5B DD 00099 PUSHL CCB : 1309 
64 01 FB 0009B CALLS #1, SYSSDELETE : 
16 50 €8 0009E BLBS RO, 11$ ; 
000182DA_ FF 08 AB D1 000A 10$:  CMPL 8(CCB), #99034 > 1311 
OC 12 000A9 BNEQ 11$ : 
5B DD OO0AB PUSHL CCB > 1313 
65 01 FS OO0AD CALLS #1, SYSS$WAIT ; 
5B DD 00080 PUSHL (CCB > 1314 
64 01 FB 000B CALLS #1, SYSSDELETE F 
EA 11 000B BRB 10$ + 1311 
7D 08 AB cS 00B7 11$:  BLBS (CCB), 22$ > 1321 
AO AB 08 A 000BB 12$:  BICB2 #8, “99 (C¢B) : 13 3 
EO AB 2 DO 000BF MOVL R2, -32(CCB) > 1335 
5B DD 00C3 PUSHL CCB : 13 
66 QI FB oc CALLS #1, SYSSFIND 
46 0 €8 000C8 BLBS RO, 198 : 
000182DA BF 08 AB 01 000CB 13$ CMPL =: 8 (CCB), #99034 : 1339 
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K 16 
i ea 1e-8e-1984 fo:51:68  LRORRTL SREaFORDELE SE. 69251 — 
{THB G Etfoo we a 
: PSECT SUMMARY 
; Name Bytes Attributes 
: _FORSCODE 549 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
: occecese Symbols --<----- Pages Processing 
: File Total Loaded Percent Mapped Time 
; ~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 13 0 581 00:01.1 


COMMAND QUALIFIERS 
PL SSS CME CROCS FELD LATVIA, OPT INE TESPUOTRACE/L 1598 155 1 ORDELETE/OR JORIS 17 OROELETE MSRC$:FORDELETE/UPDATE=(ENH$:F ORDELETE 


Size 549 code + 0 data bytes 
Run Time: 00:16.4 

Elapsed Time: 00:55.0 

Lines/CPU Min: 5045 
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Compi 


185 pages 
Bis meg teaplete’ 
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